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A  COMPUTER  METHOD  FOR  RETRIZVIMG  HIFORMATIOF 
OF  ARTICLES ,  REPORTS,  AJTD  PRESElfTATIOlfS 


I.  UfTRODUCTIOR 

The  objectives  of  this  effort  were  to  improve  procedures  for 
maintaining  up-to-date  listings  of  all  articles,  oral  presentations, 
and  reports  published  by  or  for  the  Atmospheric  Sciences  Research 
Technical  Area  (ASRTA);  to  make  periodic  updatings  of  such  lists 
as  routine  and  easy  as  possible;  and  to  make  the  preparation  of 
selective  lists  an  automatic  machine  procedure. 

II.  BACKDROUSD 

Over  the  past  years,  the  list  of  published  articles,  oral 
presentations,  and  published  reports  originating  either  internally 
within  ASRTA  or  externally  with  contractors  and  other  research 
groups  associated  with  ASRTA  has  grown  quite  rapidly.  Along 
with  the  growth  of  the  number  of  such  items  hm  cent  an  increas¬ 
ingly  frequent  need  to  prepare  selective  listings  of  these  items 
sccording  to  type,  origin,  time  period,  time  of  entry  into  the 
file,  subject  category,  or  lone  combination  of  these  criteria. 

Compiling  such  listings  by  hand  from  a  typed  water  Hat  had 
become  a  time-consuming  task,  as  had  the  periodic  updating  of 
the  typed  master  list. 

The  project  was  therefore  undertaken  to  reduce  the  typed 
master  list  to  a  computer  card  file  of  information  which  could  be 
copied  to  a  magnetic  tape  working  file  and  then  listed  by  computer, 
either  fully  or  in  selected  parts. 

III.  APPROACH 

A.  Items  included  in  the  original  typed  listings  had  been 
arranged  chronologically  within  six  categories: 

1.  Articles  published  by  ASRTA  personnel  in  scientific 
Journals  and  conference  proceedings. 

2.  Presentations  by  ASRTA  personnel  et  technical  meetings. 

3.  Reports  by  ASRTA  personnel  for  general  DOD  distribution. 

U.  Article:  published  by  contractors  in  scientific  Journals 
and  conference  proc^Mngs . 

5.  Reports  by  contractors  for  Army  use. 

6.  K«po/*ts  by  ASRTA  personnel  for  internal  use  or  limited 
distribution . 


B.  In  order  to  gain  slightly  more  flexibility  in  selective 
listings,  the  sequence  of  these  categories  was  changed  somewhat  find 
one  additional  category  vas  created: 


1.  Articles  published  by  ASRTA  personnel  in  scientific 
Journals  and  conference  proceedings. 


2.  Presentations  by  ASRTA  personnel  at  technical  nee tings . 

3.  Reports  by  ASRTA  personnel  for  general  DOD  distribution . 

U.  Reports  by  ASRTA  personnel  for  internal  vise  or  Halted 

distribution. 


5.  Articles  published  by  contractors  in  scientific  Journals 
and  conference  proceedings. 

6.  Reports  by  contractors  for  ASRTA  general  distribution. 

7.  Reports  by  contractors  for  ASRTA  Halted  distribution 
or  internal  use. 


Individual  entries  of  any  of  these  given  types  are  kept  in  chronolo¬ 
gical  order.  Each  entry  is  identifiable  by  date  (year  and  month), 
origin  (internal  or  external),  type  (article,  presentation,  or  report), 
and,  if  applicable,  by  type  of  distribution  (general  or  Halted). 
Entries  are  further  identifiable  by  one  or  more  of  nine  subject 
categories  and  by  date  of  entry  into  the  file. 

C.  In  transferring  this  information  to  computer  cards,  two 
separate  decks  of  cards  were  prepared,  an  information  deck  and  a 
code  card  deck. 


D.  The  information  deck  is  made  up  of  seven  sections,  one  for 
each  of  the  general  types  listed  in  (b)  above.  Eacb  section  contains 
one  6-unlt  set  of  cards  for  each  item  in  the  section.  The  first  card 
of  each  set  contains  one  l*-dlgit  Identification  or  entry  number,  which 
identifies  the  section  and  the  entry  location  within  the  section.  All 
entry  numbers  pertaining  to  items  in  section  1  are  coded  as  1001,  1002, 
through  l"nn  where  "ann"  is  the  last  entry  maber  in  the  section. 
Section  2  items  axe  coded  in  the  2000's,  section  3  In  the  3000's,  etc. 

E.  The  remain: jig  five  cards  In  each  Information  set  contain 
the  plain  language  description  of  the  item,  e.g.,  author's  name,  title 
of  the  publication  or  presentation,  contract  or  report  maber,  date  of 
publication  or  presentation.  Since  this  information  is  all  read- in 
and  then  written-out  of  the  computer  under  FORTRAK  A -conversion,  no 
rigid  format  Is  required.  The  only  limitations  are  that  the  complete 
set  of  information  must  fit  on  five  80- column  IBM  cards,  and  that  five 
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cards  always  be  used.  Up  to  four  of  the  set  of  five  cards  may  be 
completely  blank,  depending  cm  the  amount  of  Information  available. 

F.  The  first  6-card  set  in  each  section  contains  a  written 
description  of  the  type  of  entry  in  the  section.  This  information 
is  used  to  print  out  the  heading  to  each  separate  section  within 
a  listing. 


G.  The  code  card  deck  is  made  up  of  one  card  for  each  entry 
within  the  information  deck;  it  is  therefore  only  one-sixth  the  site 
of  the  information  deck.  Each  code  card  contains  from  six  to  eleven 
items  of  data  which  key  directly  back  to  the  corresponding  entry 
within  the  information  deck.  These  items  of  data  are  the  date  (four 
digits  giving  year  and  month);  origin  (internal  or  external);  type 
of  entry  (article,  presentation,  or  report);  and  entry  number  (cor¬ 
responding  to  the  number  of  the  first  card  of  each  6-card  set  in  the 
information  deck).  A  fifth  piece  of  data  refers  only  to  report 
entries  and  describes  the  type  of  distribution,  whether  general  or 
limited.  The  sixth  data  item  is  the  process  date  or  date  of  entry 
to  the  file.  The  seventh  through  eleventh  data  items  are  the  sub¬ 
ject  categories  pertinent  to  the  entry.  Each  entry  may  reference 
from  one  to  five  subjects. 

H.  Preparation  of  a  set  of  cards  for  a  new  entry  is  atmaarlxed 
in  Annex  A.  Details  of  preparing  the  code  card  are  given  in  Annex  B. 

I.  FORTRAN  IV  was  chosen  aa  the  programming  language  for  this 
project  for  two  reasons.  Firs';,  FORTRAN  is  the  moat  widely  used 
scientific  programing  language;  second,  the  logical  decision  options 
available  in  FORTRAN  IV  make  possible  a  relatively  short,  simple 
program  having  considerable  flexibility  for  selective  listing. 

J.  Lists  obtainable  from  the  selective  listing  program  can 

be  aa  comprehensive  as  a  listing  of  the  entire  information  deck,  i.e, , 
all  types  of  items  fran  all  origins  for  ail  periods  of  time,  or  as 
specific  as,  for  example,  a  listing  of  only  those  items  identified 
as  externally  originating  reports  prepared  for  limited  distribution 
and  published  during  a  particular  period  of  time.  An  opt  lew  has  also 
been  included  which  allcrwB  listing  of  any  number  of  arbitrarily 
selected  items  specified  by  a  prepared  list  of  entry  numbers. 

Figure  1  illustrates  the  selective  listing  options  available. 
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FIGURE  I.  SELECTIVE  LISTING  OPTIONS 


IV.  PROGRAM  DESCRIPTIONS 

A.  Three  separate  programs  have  been  written  for  use  in  this 
inform&tioo  retrieval  system. 

B.  Program  "SELIST"  copies  the  entire  master  file  of  computer 
cards  to  magnetic  tape.  "SELIST"  is  used  to  initially  create  the 
working  file  and  to  subsequently  re-create  the  working  file  if  it 
should  for  any  reason  become  unreadable;  e.g.,  through  accidental 
scratching  of  the  tape,  parity  errors  induced  by  wear  or  mishandling 
of  the  tape,  etc. 

C.  Program  "UPDATE"  creates  a  new  working  file  from  the  exist¬ 
ing  working  file  with  corrections,  additions,  or  deletions  of  infor¬ 
mation  at  any  location  within  either  the  code  card  or  information 
deck  sections  of  the  file.  "UPDATE"  is  routinely  employed  once  a 
month  to  Insert  new  entries  into  the  working  file  and  to  obtain  a 
check  listing  of  the  entire  updated  file.  It  may  also  be  used  on 

a  non-routine  basis  at  any  time  to  correct  or  delete  information 
from  the  working  file.  The  data  deck  setup  for  "UPDATE"  is  outlined 
in  Annex  C. 

D.  Additions,  corrections,  or  deletions  to  the  master  card 
file  are  made  manually  using  for  reference  the  check  listing  prepared 
by  "UPDATE". 

E.  Specific  listings  are  obtained  from  the  working  file 
through  the  use  of  program  "SELIST".  The  specifications  for  each 
required  listing  are  made  available  to  "SELIST"  through  individually 
prepared  "EXTRACT"  data  cards.  The  coding  and  format  of  the  "EXTRACT" 
cards  are  given  in  Annex  D.  Multiple  listings  of  Identical  or  differ¬ 
ing  content  osy  be  obtained  from  one  execution  of  program  "SELIST"  by 
supplying  additional  "EXTRACT"  cards,  one  per  listing. 

7.  General  flow  charts  of  the  three  programs  are  given  in 
Annex  E,  while  the  actual  program  listings  are  given  in  Annex  7. 
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new  arm  card  sot  preparation 


1.  For  each  new  item  to  he  included  in  the  Hating  master 
file,  prepare  one  set  of  five  cards  containing  all  pertinent  identi¬ 
fying  inf  orient  loo .  Use  columns  1-70  as  necessary.  Each  set  nay 
contain  from  one  to  four  blank  cards. 

2.  Prepare  one  CODE  CARD  containing  information  as  to  date, 
origin,  type  of  entry,  type  of  report  (if  needed),  and  entry  number, 
date  of  entry  to  the  file,  and  subject  category  or  categories. 

See  Annex  B,  CODE  CARD  PREPARATION,  for  details  of  contents  and  format. 

Refer  to  the  last  update  check  listing  for  the  proper  entry  number. 

3.  Prepare  one  ENTRY  NUMBER  card.  Put  the  entry  number  as 
entered  on  the  COTE  CARD  in  columns  1-b. 

i 

b.  Combine  the  ENTRY  HUMBER  card  and  the  five  identifying 
information  cards  into  one  6-card  set. 

i 

i 


| 

i 

i 


ANNEX  A 


8 


AHKEX  b 

C0DB  gakd  prkparatiok 


9 


CODE  CARD  PREPARATION 


CARD  FORMAT: 


QRI-  ENTRY  REPORT 


DATE  GIN _ TYPE _ TYPE 


1  2  3  1* 

5  6 

789 

10  11 

12  13  14 

15  16 

17  18  19 

20  21  / 

Y  R  M  0 

EXT 
I  N  T 

ART 

PRE 

REP 

GEN 

L  I  M 

~9 

1.  DATE  -  Enter  year  in  colon*  1,  2;  month  in  3,  4.  If  no  month 

is  indicated  In  the  written  abstract,  use  00  for  the  month 
entry  on  this  card,  for  example: 

6505  May  1965 

6712  December  1967 

6900  1969#  month  unknown 

2.  ORIGIN  -  In  columns  7,  8,  9  enter  EXT  for  external  originator, 

or  enter  INI  for  internal  origin. 

3.  ENfhf  tiPk  -  In  columns  12,  13,  l1*-  enter  ARP  for  article 

published  in  scientific  Journal  or  conference  proceedings, 
PRE  for  presentation  by  ASRTA  personnel  at  technical 
meetings,  or  REP  for  report. 

4.  REPORT  TYPE  -  If  ENTRY  TYPE  is  REP,  then  entry  must  be  made  in 

c alums  17,  18,  19  of  either  GEN  (general  distribution, 
l.e..  Department  of  Defense)  or  LIN  (limited  distribution 
or  Internal  use  only. ) 

CARD  FORMAT  (continued): 


ENTRY 

PROCESS 

/ 

*722  23 

24  25  26  271 26  29  30  31 

32  33  34  35136 

L 

/ 

N  N  N  N  1 

Y  R  M  0  J  < 

5.  ENTRY  KIMBER  -  Enter  a  four-digit  nuaber  coded  by  type  in 
columns  24,  25,  26,  27.  Nuabers  should  be  sequential 
within  each  section: 


1000  series 
2000  series 
3000  series 
4000  series 
5000  series 
6000  series 
7000  series 


—  UPTemsl  ARTicles 

—  INTeraal  PREsentations 

—  HfPernal  REForts,  GENeral  distribution 

—  UFTemal  REPorts,  LIMited  distribution 

—  EXTemal  ARTicleo 

—  EXTernal  REPorts,  GESeral  distribution 

—  EXTernal  REPorts,  LIMited  distribution 


ANNEX  B 
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CODS  CARD  PREPARATION  (continued) 


ANNEX  B 


II 


" UPDATE "  DATA  DECK  SETUP 


The  preparation  of  the  data  deck  for  submission  with  program 
"UFDATE"  must  be  according  to  the  following  rules: 

I.  Items  in  the  UPDATE  data  deck  must  be  in  the  same  relative 
sequence  as  the  items  in  the  vorklng  file. 


A.  Code  cards  must  be  updated  first. 


B.  Information  deck  entries  mist  be  updated  last. 

II.  Four  options  exist  with  which  to  update  the  code  card 
portion  of  the  vorklng  files 


cards. 


A.  To  correct  an  existing  code  card  entry  requires  two 


1.  First  card  must  have  the  entry  n usher  of  the  code 
card  to  be  corrected  in  columns  1-k  (lk  format). 


2.  Second  card  must  be  the  corrected  code  card. 

B.  To  insert  a  new  code  card  (or  cards)  into  the  existing 
working  file  at  any  one  location  requires  the  preparation  of  one  card 
plus  the  new  code  card(s)  to  be  added  at  that  location: 

1.  The  first  card  must  have  in  columns  1-k  (Ik  format) 
the  entry  number  of  the  card  following  which  the  new  card(s)  is  (sue) 
to  be  inserted.  Colusa*  5-8  (lk  format)  of  this  card  mist  contain  the 
nissber  of  sequential  new  card  entries  to  be  made  at  this  location. 

2.  The  second  card  (or  c  air  da )  should  be  the  new  code 
card(s)  to  be  inserted. 


C.  To  correct  an  existing  code  card  and  also  Insert  new 
cards  in  sequence  immediately  after  the  corrected  card  requires 
preparation  of  one  card  plus  the  corrected  code  card,  plus  the  new 
code  card(s)  to  be  inserted: 

1.  The  first  card  must  contain  in  colims  1-k  ( Ik 
format)  the  entry  masher  of  the  code  card  to  be  corrected;  ccdisms 
5-8  must  be  left  blank;  and  the  nuaber  of  new  entries  to  follow  must 
be  punched  in  columns  9-12  (lk  format). 

2.  The  second  card  mist  be  the  corrected  code  card . 

3.  The  third  card  (or  cards)  must  be  the  new  entry(s). 


Anon  c 


lk 


one  card  daring  mry  oololra.  only 

1J>  <»  *•««>  *»«  99  S^cSfL  cnJ^T^  8  *  "1— 

*»  ^v0*  *«  **  M 

colwuui  1-W.  ^  57  termination  card  haring  9999  punched  in 

deck  portion  of°2^r^  SlI-  1°  “Pdat*  tbe  *»*w»»tiOB 

iwertico  of  nr*  *atiy(a^corr*otS^e  °:  “  «i"ting  entry, 
nev  entry(s)  follorlnj  li  ^  wlth  ^rtlon  of 

«*«tlng  entry.  JS^JSS^hTSSL."14  d^etlc*  081  “ 
specified  in  section  II  .w  vt+u  <tre  identical  to  those 

«-*'*  i^attS  tS'^i  ££££  “**  *“««  "WUe*  by 

tde  vurkln*  deck  Me*‘«  of 

card  vlfi&  9999  punched  in  calmaTlUZ*  ^  a  termination 


ahhex  c 


15 


EXTRACT  CARD  COD IRC 


CARD  FORMAT: 


FIRST  LAST 


i 


Cord  Column 


The  type  of  listing  desired  will  determine  what  Information  Is 
entered  on  the  card: 


1.  KEY  -  If  all  types  of  entries  from  both  origins  are  to  be  listed, 

enter  99  In  colusns  1,  2.  If  particular  types  only,  or  specific 
oi  '.gin  only  are  to  be  listed,  enter  00.  If  listing  Is  to  be 
according  to  a  predetermined  list  of  entry  numbers,  enter  11. 

If  listing  is  required  according  to  the  process  (entry)  date, 
enter  22.  If  listing  is  required  according  to  subject  cate¬ 
gory,  enter  33. 

2.  FIRST  DATE,  LAST  DATE  -  If  entries  from  all  dates  are  to  be  listed, 

enter  9999  for  both  dates  in  columns  5,  6,  7,  8  and  11,  12,  13, 
lH.  if  entries  fraa  a  specific  time  period  are  to  be  listed, 
enter  TR  and  MO  (year  and  month)  of  beginning  of  period  in  5, 

6,  7,  8  and  YRMO  for  end  of  period  in  11,  12,  13,  1*».  For 
example: 

for  calendar  year  1968:  enter  68tl  and  6812 
for  fiscal  year  1968:  enter  6707  and  6806. 

If  KEY  was  entered  as  11,  enter  9999  for  FIRST  DATE  and  a  four- 
digit  Integer  number  (ifJOW)  for  LAST  DATE,  where  MNNN  will  equal 
the  number  of  entries  in  the  predetermined  list  of  entry  numbers. 

3.  CBIGU  -  If  KEY  «  99#  H,  or  22  no  entry  is  required.  If  KEY  «*  00 

or  33  enter  IWT  (internal  origin),  EXT  (external),  or  ALL 
(both  Internal  and  external  origins)  as  required  in  columns  17, 
18,  and  19. 

CARD  FORMAT  (continued): 


EHTFY  REPORT 

,  TYPE  TYPE 

m. 

22  23  2* 

25  26 

27  28  29 

30  31  3?  33-->-Card  column 

\ 

ART 

P  F  E 
REP 
ALL 
Subject 

G  E  H 

L  I  M 
ALL 

\ 

s 

I 

i 

I 


AXMBC  D 


18 


EXTRACT  CARD  CODTRO  (c«i*,inue4) 


k.  ETTTRY  TYPE  -  If  KEY  -  99,  11,  or  22  no  entry  is  needad.  If  KEY  -  00, 
enter  ART  (article),  PHI  (presentation),  REP  (report),  or  ALu 
(all  types)  as  required  in  colwm*  22,  23,  2k.  If  KEY  -  33, 
enter  subject  category  desired: 


MOD 

THB 

ENB 

SPH 

CBR 

ART 


AMB 

TRF 

EMP 

INT 

EQP 


5.  REPORT  TYPE  -  If  TYPE  *  REP  or  ALL,  enter  GEJt  (general  distribution 

reports  only),  LIM  (limited  distribution  or  internal  use  reports 
only),  or  ALL  (both  types  of  report)  in  colusaa  27,  28,  29. 


ARHEX  D 


19 


( 


PRODRRM  REL 


/ 

/ 

L 


I  start' 
[RELIST 


READ 

CODE 

CARD 


1 

h- 


J 


PROGRAM  UPDATE 


1,1* 


PhOGRni-i  CElIST  C  CON T  [  NUED  ) 


27 


selecteo 


IRST 
entry  or 


Gf 


30 


n  n 


rOQtiHkP  KELJ^T  (I»iPUT*  TAPtb*I'«PUT»TAPt  10) 

— — -PKOGMAM  Tn  rf«lTE  •URrtlwto  F  ILF  TAPE  In  HE  U5F*>  *ltM 
REPORT  Ll«;TlNr,  PRUGRAm*,  UPDATE  AW  *rUST 
^1MENSIU.X  LIST  (80) 

C— — **— hEGIn  BV  pEADTNG  AMU  •pITInG  CODE  CA308 

100  -<FA'>  <*>*!)  iOAtE«IO«e*lTyK*lHEP,MLIST»lPs>UC*IS1  *[b?* 1S3*1S4.IS3 

1  Ff«p«*A|  <I*.J(?X*M>  «2(*x*l«)  *b(2xA3)  ) 

-HU(lo*l)  T0ATE«IUK<9*IiYP«lHEP*Nt  IST*lKPt)C»lC|  .lS**1SJ*tS4*lSb 
IF  (luAlb.E0.94vo)  GO  Til  2*0 
vjfl  10  100 

C— — — cowl  1  WE  «V  ^FADlMG  AMU  OHITMtt  INFO  «ECK 
<*00  wEAO  (5.*)  MTRY.(LISKI)  *1*1*80) 

2  Format  l  !♦./.  <1*,xS)  > 

*RITE  (10*2)  nTmY* (LIST (1) *1*1. AG) 

IF  (MTRV.mE.099m)  GO  TO  2l)U 

END  FILE  10 

5T0P 

EriU 


*E?*00 
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kpugHAR  UPDATE  I  InPUT.UUTPOT.  TaPF10»TaPE1  1  *  T  APE<5=  INPUT  »  TAPE6*nUTP0T 

#) 

C— — tpPoKT  LlblEP  UPDATE  TAPE  PROGRAM 

•>IMF:nsIUN  LTSTotO)  »NULIST(80)  »nEW(200> 

C  MOUNf  CUpR£*vT  WORKING  FILE  TAPE  ON  TaP£10 

*k  •  1  '<0  lu 

C  ,<i()L..I  btfNK  TAPt  ON  TaPEH  FOR  CREATION  OF  NF*  WORKING  FILE 

^«hl;  11 

on  j  i*i«2uo 

l  <F  *  < I }  *9**9 
JjxO 

500  "FAiHS.lO)  NeXT, MULTI, MORE 
lf>  FoR-AT  (bl4) 

*00  *FAOU0»20>  Tll»TO*lT»IR*NL*Ip*ISl*IS2tI5J*lS4»IS5 
20  PprxAT  (14.3{2X,A3> «2(4X«I*) ,5(?XA3) ) 

C  C^tCK  TO  bEE  TF  £n7RV  IS  TO  BE  ELIMINATED 
IF  (NL.tU.NExT. AND. MULTI. t«. 99)  GO  TO  boO 
«hITE(1I*20;  IO»10»U ♦IR*NL,IPtISl.IS2»lS3» IS4.ISS 

IF  { IO.tR.99P9)  GO  TO  300 
IF  (NEAT.EU.o99P)  GU  TO  400 
IF  (NL.tu.NEtT)  GO  TO  200 
jo  JO  *0U 

>? r»o  IF  (mijlT  I  »tU.* )  go  TO  1200 
2b0  '>0  1300  1*1  ,**ULTI 

'FAf*<b  .20)  InATt.lORGf  ITYP«lrtEP*NLIST.lPR0CtISl.IS2*lS3*lS4.IS5 

IF  (IPHOC.EQ.O)  GO  TO  1300 

JJ*JJ»1 

<*FW  (JJ)  *IPK0F 

UOO  '•F I  Tfc  ( 1 1  «20)  I0ATe*I0HG,ITYP*lRFP.NUST.IPR0C»ISl.lS2*lS3.IS4*ISb 
<io  to  Sou 

1200  *F  Ao(b*20)  InATE,IOKli.ITYP»I«EP,NLIST.lDROC»ISi  , I S2. 1  S3 • I S4 • IS5 
BACKSPACE  U 

I  run. 20)  IDATE.lONG.lTYP.lBEP.NLIsI.lPHOC.IsltlS2tIS3.Is4.lS5 

‘G'LT  latROHE 

IF  (HIJLTl.NE.O)  GO  TO  2S0 
•ip  to  bUU 

300  'FAit(b.lU)  NfXT.MULTI.MORE 

TOO  ■‘F  AD  ( lu  *30  )  NTRY.  (LIST(1)  «I*1»R0) 

C  C^fcCK  TO  SEE  TF  FnTRY  IS  TO  BE  ELIMINATED 

Ip  (NTHY.tU..,EXT.ANU.MULTi.EU.99)  GO  TO  300 
-PI  TE  (11*30)  NTRY.  (LIST  (I)  .1*1.80) 

IF  (NTHY.EU.9999)  00  TO  13b0 

IF  (NExT.tU.o999)  GO  TO  700 

IF  (NTHY.EU.mEXT)  GO  TO  600 

•30  TO  70U 

ooo  1F(^ULT I.tU.r)  GO  JO  1600 
obn  on  «bo  K*i.MitLTt 

*FAD  (S.30)  nT. (NUL1ST ( 1 ) . 1=1 .00) 

30  format  <14./, (IMS) ) 
bbo  .  PjTfc  (  i  1  «3o )  NT, (wOLIST(l) .1*1.80) 

•jO  TO  300 
louO  oo  Hi>0  K*1.6 
*00  WACKSPACE  11 

-fcAO  (5.  JO)  NT. (NULISI (1) .1*1.80) 

IbSO  «PITF  (11.30)  NT.  (NULISTU)  .1*1.60) 

HiLT  IxRUKt 

If  (nULTI.NE.O)  go  Tu  650 


33 


■jO  TO  300 
USO  “FwluQ  11 

C — - - - Lib!  ALi - - 

ibo  v^ITt  (b»3bl) 

351  (&6H1  Thf  FOLLOWING  IS  A  COMPETE  LJSTtnG  O 'f  ALL  ITpHS  FOH 

$  /'LL  DA  |tS  ) 

JJ*1 

bo  HFA:><ll  »20)  TOATE*  IOHGf  I  TYF,  lR£P,NLIST«THPOC,TSl  ♦  I  S2 t  [ S3 1 1 S4  »  I Sb 
IF  UF^0c.LU.^EW(  JJ)  )  GO  TO  22S 

h»-1  It  TOATF  *  lOrtG,  ITvF,  Ik£P,NLlST»  IHUMCt  Tsi  ♦  T  S2  ♦  I  S3  «  {  S4  *  I  Sb 

21  M'WvmI  (1^»14,J{?K,A3)*?(4X»I4)*S(2XA3)) 

<10,  To  22q 

225  'F w  ( JJ)  =nL  1  $T 
JJ=JJ*1 

•  1  It  (6*22)  TOATF  .IONG,  I TYP,  IHFP*OLlST  ,  IPROC*  TS1  ♦  IS2, 1  S3,  IS4»  ISb 

22  Fo«»*AT  ( 1*»  U*3(?Y*a3>  ♦?(4X«l4)  »*j  (2Xa3)  *1  0X«3HNp  *) 

226  IF ( 1 uaTL .tO,Q999)  GO  TO  22U0 
GO  TO  bo 

2200  •'•TPYXsIOOO 
JJ*1 

00  TU  100 

99  XHYArM  HYX*l  000 

'•PITfc  (b»9b)  (LIST  (I)  ♦I  =  1»«0) 

9H  F OPM A T  ( llil  ,4  ( l')X»  l6Ab/) /) 

100  a Ms  1.0 

1100  "FAl>  ( 1  1  »  30  )  nTjy*  (LlST(I)  tIsl»A0> 

IF  (NTHY.tCl.q^^M)  GO  TO  777 
IF  (NTHY.tO.f TRyx)  OU  to  99 
IF  (N'TRY.tU#NFW(  JJ)  }  GO  TO  32b 

110  'KITE  (b •  15 )  XN.  (LIS1  (K)  »K  =  1»16)  »NTWY,  (LIST  (K)  ,K  =  1 /»«(») 
lb  Format  (/K4,o» lxtl6Ab«20X« l4t/(5X»l6Ab) ) 

326  XNsj(N*l«0 
GO  TO  1100 
325  Jj=JJ*l 

■*R  1  Tt  ( 6  •  lb )  XN*  (LISTU)  *Ksl»l6)  »NTRY»  (LTST(K)  «K  =  17»ttO; 

1 A  Format  (/F4.0, 1  X,  lbA5«  20  X»  I *«bX«3Hh)EW»/  (5X*  lr>A5)  ) 

GO  X*  32b 
777  CONTINUE 
STOP 
tNO 


not  reproducible 
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*i<  t  i  «t  C'*mm  i  r  ai  »m  .  i « j*  1X4 ,  i  xo»  i  a(s.  n  •«) 

If  Tf  rt  1 *H?«H  4 

if  <  Ixi.tu.H)  )  ',n  TO  j3 

U  (  (IX2.tO.H?.U^.iX^.tU,lXJ)  .ANO.  (  I  X  1  .  LO  .  H2 .  HU  .  (  X  1  .  tU.  I  X<3  )  .AND.  (IX 
1  ».tn#H2.0K,  l*6.M’.  IXT.ok.IA7.EC.H3)  )  mEtuUw 
x*2 

•«F  T u*N 

33  If  (  (  (IX2.t0,H2.MF>.IX2.E'J.IA3)  ,ANt».  (IXS.FO.rtl )  )  ,aM>.  (  ( IX6.EO.H2) .Uk 
4* (1ao.Eu.IA7) )  )  KETUNN 
r-*t> 

•<F  Ti  ih  v 

<■-'  i< 


AHEX  T 
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u  o 


mroghaf  SfcLIsT ( InPUT » OUTPUT » Tapes* INPUT . TAP£6*OUTPUT»TAPEIO ) 

- AtfSTKACT  c*«D  LISTING  PROGRAM 

INTEGER  H1»h?«LIST(80) *NULIST(1500) .PRDaTE.SUBJI  .SUBJ2 .SU8J3.SU6J4 
*«SUhJ5 

c- - input  ex (kact  capo—— — - 

2222  sEAD<5»S0O)  tORaLL* IHDATEtLAOATE* IORG, I'fYPE,  IFREP 
boo  Format  (12.216, 3(2X»A3) ) 

IF (IHOATE.Eq. 0000. AND. LADATE.EO. 0000)  Go  TO  666 
•EWINO  10 

IF  (IOHALL.EO.99.AND.IROATE.EQ.R999)  GO  T0350 
IF  (I0RALL.EO.99)  GO  T03EO 
IF (I0RALL.E0.22)  GO  TO  310 
IF(I0RALL.EQ.33)  GO  TO  3300 
Go  TO) flBM 

C - - - LIST  ALL - 

J‘,0  ■'bITE  (6 *35l ) 

351  Format  (66Hi  THE  FOLLOWING  Is  A  COMPLETE  LISTING  OF  ALL  HEMS  FOR 
%  ALL  OATES  ) 

SO  *EAO  (10.20)  IDATE 

2o  format  ua) 

IF  (I0ATE.EQ.9999)  GO  TO  200 
GO  TO  50 
200  >'TRYX*1000 
oO  TO  100 

99  '■THYX*NTHYX*1000 

•RITE  (b*96)  (LIST(I) *I«1.B0) 

98  FORMAT  ( 1H1 *r (lOXt 16A5/) /  ) 

100  AN* 1.0 

1100  HEAD  (10.10)  NTRY* (LlST(I) »I»1.«0) 

10  FORMAT  (I4»/,(16ASn 

IF  (NTRY.EQ.9999)  GO  TO  2222 
IF  (NTRY.EU.nTRYX)  GO  TO  99 

110  -RITE  (6*15)  XN.{LlST(K)»K*l.l6)tNTRY,(LlST(K).KMl7»80) 

15  Format  (/F4,n,lx,16A5,20x»l4,/(5x*16A5)  ) 
ansxN.1 .0 

IF  (AMOO(XN.iO.o) .EQ.0.0)  WRITE  (6*1234) 

GO  TO  1100 

c - - LIST  By  oate— - — 

360  •RITE  (6,361,  1RQATE.LAOATE 

361  Format  (45Ml  The  FOLLOWING  is  A  LISTING  OF  all  ITEMS  M2H  DATE 
St  FH0M.16.4H  To, 16) 

60  -JO  75  I*I.l500 

61  hEAO  (10,120)  IOATE.NLIst 

120  format  (I4,i9X,ia) 

IF  dOATE.EQ.9999)  GO  TO  130 

IF  (IOATE.Ge.IRuaTE.ANO. IDATE. LE.LAOATE)  GO  TO  74  < 

IF ( (IOATE.Eq. ( (Ir0ATE/100)*100) ) .OR. (IDATE. Eq. ( (LADATE/100) MOO) ) J 
$60  TO  74 
GO  TO  61 

74  moLIST(I)  »  nLIST 

75  CONTINUE 
130  'TRYXbIOOO 

I.l-l 

1130  Xn«1*o 

00  85  d»l»I 

if  (amOu(xn-\. o.io. 0) .eo. 0.0)  write  (6*1234) 

37 
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1234  Format  ci«l*///» 

95  *FAU  (10*10)  NTHV* (LIST (K) »K*1 1 «0 ) 

If  <I0HALL*E0.11)  60  TO  22b 5 
IF  (NTHY.EO.nTRYX)  GO  TO  1199 
2255  IF  (NTHY.EU.9999)  60  TO  2222 
195  IF  (NThY.£Q,MULTST (J) )  60  TO  88 
GO  TO  9b 

1199  •'<THYX«MnYX*iOOO 

-FITE  (6*98)  (LIST(K) »K»1*80) 

GO  TO  195 

88  -f,lTt  (9*lb)  XN, (LIST(K) *K*1*16)*NTRY. (LlST(K) .<*17*80) 

85  Afc*X*«l,0 
GO  TO  2222 

C - - - SELErTI  Vg-LIST - - - 

1888  -RITE  (6*1889)  IRDAT£»LA0ATE* IORG. ITYPE. IFREP 

1889  FOHhaT  (57M1  ThIS  SELECTIVE  LISTING  WAS  PREPARED  ACCORDING  TO  T«t 
s  /338  following  extract  information  /2ih  inclusive  oatEs  ame 

$»I6.4H  TO* If>/l6H  0H16INAT0H  IS  *A3/i9h  TYPE  OF  ENTRY  Is  ,A3/ 
«17M  PEPOMT  TYPE  IS  <A3) 

IF  (10NALL.EO.ln  60  TO  1 1 1 1 
888  00  55  1*1.1500 

57  *£A0  (10.56)  I0ATE»I0R6X*ITYPX.IREPX.NLIST 
56  format  ( 14*3 (2x,a3) *4x.i4j 

IF  (IUATE.Eq.9999)  60  TO  130 
"'Mai 

CALL  COMP  (ITYPe.SHREP.IORGOHALL.IORGX,  ITYPE.ITYPX.IFHEP.TPEPX. 

1 JH  ,MM) 

GO  TO  (400*57) *MM 
400  CONTlNLlI 

IF  ( (IR0ATE.FQ.9999) *0R, ( IOATE.GE. IROATe. ANO. IdaTF.LE.LAOaTE) )  GU 
2Tn  58 

IF ( ( IOATE.EO. ( ( IflOATt/100)*100> ) .OR. ( IOATE.EO. C (LAOATE/l00)*100> > ) 
«G0  TO  58 
GO  TO  57 

58  nuLIST(I>»NLtST 

55  continue 

GO  TO  lio 

1111  *EAO  <5*lll2)  (nuLIST(I) »I*1*LA0ATE) 

1112  format  (20U) 

IbLAOaTE 

1113  heao  (10*20)  IO«TE 

IF  (IOATE.EO. 9999)  GO  TO  1130 
GO  TO  1113 

370  "RITE (6*372)  IRoaTE*  LAOaTE 

372  FoRRAT(»1TME  FOLLOWING  ENTRIES  WERE  MAUF  BETWEEN*. 16**  ANo*,l6) 

00  375  Isl *  1500 

371  REAO (10*373)  IOaTE*NLIST,PHDAT£ 

373  FoRMAT(I4*19x*l4.4X*l4) 

IF  < IUaTE.EQ.q999)  GO  TO  130 

IF (PHDAt£.GE.IRUATE.AnO*oruATF.LE. LAOATE)  Go  TO  374 
00  TO  371 

374  "ULIST(I)*NltST 

375  CONTINUE 
GO  TO  130 

3300  -PlTt  (6*3301  )  IROATE.  LAOATE* IORG* I  TYPE 

3301  ► ONmaT  (*1  THIS  SELECTIVE  LISTIN6  WAS  PREPAREO  ACCOROlNG  TO  Tnt 

1*/*  following  extract  information*//*  inclusive  dates  ARt* 

2*I6»*  TO**  Ifs/*  ORIGINATOR  IS  *.A3/*  SUBJECT  CATEGOPY  Is  **A3) 


•'(.  .1J1U  1  =  1*1  bO-i 

Ol«J  ' f-  Ai >  (5.JJ18)  lo.ilt  *  10RbX«  1  TYPX*  IHf  Pa.ni  I«;T,  I^^C.SubJl  .s  riJ2*SUOJ 
1  3 «  snr  J4  «  5(jr?jv 

'■  ■*  I  H  r  l.w  *r  (  i  *»  *  T  l2K  «  ai)  *C  (*»X  14)  »•*  (2XA3)  ) 
if-  (  1|»*  f  t  .trj.V'VVU)  OU  JO  uo 

If  fill  fHL.f^.S  »MJ1  .Oh.  1  1  YKt.t<i.SUH,l2.U3.  I  T YPF . FU . SUB J J . Ow . I T YP£ • 

1  r  i-.sUhJ'f.uK,  |  TYkP  •  E  o .  Suh  Jij )  .AM).  {  C  IO*bA.tQ.  lQOf,)  ,.>w.  ( 10K0.KQ,  JHaLL 
?)  )  . A '*•  * .  (  ( IKOATE. KO.yyVV)  .on,  < IOAfE.r*.  iPOATE.Akn.TOArF.LE.LADATE)  ) 
1)  (Vi  10  iJ  IS 
•r  10  JJiY 

-HIS  i*L  l  ST  ( 1 )  *NL  T  ST 
HI'.  Of  nT  1  ott 
•i  TO  lJU 
ne)*,  MOP 
t»  ti 


ARBEX  F 
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